home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_2
/
mstack_m
< prev
next >
Wrap
Internet Message Format
|
1995-03-31
|
7KB
From: Mika Heiskanen <mheiskan@hut.fi>
Subject: v06i016: mstack_mh - MStack a Display Utility v1.0, Part01/01
Newsgroups: comp.sources.hp48
Organization: Helsinki University of Technology - Finland
Followup-To: comp.sys.hp48
Approved: spell@seq.uncwil.edu
Checksum: 3561338579 (verify with brik -cv)
Submitted-by: Mika Heiskanen <mheiskan@hut.fi>
Posting-number: Volume 6, Issue 16
Archive-name: mstack_mh/part01
BEGIN_DOC mstack.doc
Hiya,
After trying DISP5, STK7, HyperStack I combined some of the features and the
result is MStack v1.0
MStack replaces the internal display routine with a new one that can:
- display 5 or 7 lines
- display multi-multi lines (Adapted from HyperStack)
- display object adresses instead, useful for hackers
- display the entry name for the object instead, if you have RPL library
installed
- display long real/complex numbers (with normal accuray only)
MStack is installed as a library with id 1067 (#42Bh), length is 1250.5 bytes.
User flags 40-44 are used to indicate modes, which are according to priority:
Clr/Set
40: Nada / Turn MStack off
41: 5 stack lines (status area visible) / 7 stack lines (st. area not visible)
44: Nada / Address mode (Adresses are displayed instead of objets)
42: Nada / HP mode (If RPL library is installed, ->Name is called. If result
is a string, it is displayed, else normal display routine is called)
If RPL library is not installed, flag has no effet.
43: Nada / Multi-multi line mode (Stack levels other than 1 will be displayed
in multiline fashion too
The library provides following programs:
MSTK: Toggles flag 40, then starts MStack if flag is clr, else normal display
S5/7: Toggles flag 41
N/HP: Toggles flag 42
N/ML: Toggles flag 43
N/AD: Toggles flag 44
4 last programs also display whether the flag is set/cleared. This is done
by flashing ON/OFF on the menu key. It will work on CST menus too even if
displaced from the position on the library menu.
If prg mode is on, this flashing does not occur.
Flag 45 will be used to enable array form display for lists in the next
version. (Not released soon).
Any ideas for improvements & new modes are welcome.
Installing:
Decode with UUDECODE, download, recall lib to stack, enter port number (0,1,2)
press STO, turn calc OFF and on again. MStack attaches itself to HOME.
Purging:
HOME :port:1067 DUP DETACH PURGE
Credits naturally go to the programmers of DISP5, STK7, and HyperStack and
DispStack (inbuilt) whose programs I've used as models.
END_DOC
BEGIN_ASC mstack.asc
%%HP: T(1)A(R)F(.); @ tasc v2.52 file
"04B200C900A0D435471636B60213E203A0B243E80000000F780050000D9D2011
920B240090770B2130CCD20810008FB9760143248DD6950D9D203914087735DA
91655951119202D400F7080DA916559514423029E20B24F008813030A5049056
76D36D9D204423055951B213029E202D4600F31267F81655951B4826AF951A68
61B2130D9D208F91555951C2A20700005230040BC91692BF4B2130D9D200B5A2
55951C2A20700005230040BC91692BF4B2130D9D2029E20B24F00B9F0616045D
0040D6236C2A207000012FE226322308D761FE226B2130D9D2062726FEF309E5
5059230981409DE36F3040B20403C3700831687E93C121698E36D9D20E52168D
761FE226B213032F934C0168B736CAF06D1236CB916F0046D443685230CA1300
ED30981409DE365304012040D9E36D9D209BC26A6526E93303C370F28153F216
2C230F28150ED30981409DE36FED30A6526924214337044230B2130D9D200831
6D2E30E9330E6230DCC262D11618A3029E20B24900B2130B2130D9D208DA16D9
D200BF9339916D9D20322308D76132230FCC51B213021B46877353991629E20B
24B00D9F810DB4629E20B24C00A2C4629E20B24D00FEF30D9D20391409DE3629
E20B24E0055951B2130B21308D761322309814087735A2170D2E30924219FF30
B2130D9D20F6F93DBC36981409DE36A6526FED3076E263C370F2815DCC26A652
679144D9D2088130DA91629E20B2490065F93DA91629E20B249002C230F0E93D
A91629E20B249000BF933991629E20B2490021B46877353991629E20B24900EF
1167A226D914087735CB92629E20B24A0029E20B24900B2130348155A3704423
0B2130D9D20D41319BF8309A3539916D9D20BEF839659339916B85935562188A
36981409DE36D9D209404042D4608B46F291132230CF146B2130D9D209E04042
D4608B46F291132230FEF30F8040B213097611B2130B85932DF93E5E4029E20B
248008BE40D9D20803816EC406981629E20B2470028E4678D40809831CF9329E
20B248002DF93B2130BEF83B2130D9D201151107916322309DE36C2A2090000F
4E4C2A20B0000F464643223053040EC370881301227014A40EFC36D9D2044230
12270E0E30BC0402CE30322305B2A3F004643370B21304337085230B2130D9D2
0881309DE365573552735B21308B24400D9D2021B468813029E20B24500C2A20
D0000E4C5144429E20B24600B21308B24300D9D20D91408813029E20B24500C2
A20D0000E4C5D4C429E20B24600B21308B24200D9D20391408813029E20B2450
0C2A20D0000E4C5840529E20B24600B21308B24100D9D20981408813029E20B2
4500CC093C2A20D00003553C57329E20B24600B21308B24000D9D20E1A81F714
08813029E20B245009DE36E8E60D9D202A1709CB04F6683D9D2014F83D9D2020
4242FA309BF83CB92629E20B247005A493B213082F83D9D209814087735DA916
C9593B2130A5F83D00A337F83AC1A344193B2130C3024E5E40454048BE40D9D2
08278354093B2130F7140877358C170B2130CA031B2130E4A2055000AFEFFDAE
FF56EFFD1EFF5DDFFBADFF60DFFBEBFF5EAFFF0AFF4C8FF678FF248FFE08FF17
7FFF47FFE4A204B0000000000000000006400000000000000000000000000000
00000000000000000000000000000000006400040D43545B4000403553C57310
040E4C5840520040E4C5D4C430040E4C51444400140009300013000920001200
00F1D5CDC"
END_ASC
BYTES: #CDC5h 1250.5
BEGIN_UU mstack.uue
begin 644 MStack
M2%!(4#0X+45`*P"<``I-4W1A8VL@,2XP"BLTC@```/"'``4`T-D"$2FP0@`)
M=[`2`\PM@`$`^)MG$#1"V&U9T-D"DT&`=U.M&5:5%1$I($T`?X#0FF%564$D
M`Y(NL$(/@!@#`UI`"65G/=;9`D0R4)45*S$@Z0+29``_(7:/8559L81B^EFA
MAA8K,=#9`O@95945+"IP```E`T"PG&$I^[02`YTM`%LJ55G!H@('`%`R``3+
M&9:R3RLQT-D"DBZP0@^P^6!A0-4`!&TRQJ("!P`0\BYB(S*`?1;O(K82`YTM
M8')B[S^07@65,I`8!-D^]@,$*T`P/`>`$X;G.1P2ENACG2W@)6'89_$N8BLQ
M,/(YQ!"&>V.L#]8A8[P9]@!D332&)0.L,0#>`XE!D.UC-4`0`@2=/M;9`KDL
MIE9BGC,P/`<OO8<(R\()1X#V0&`39/O;>`VHEED(2-'-`)`,K,=#9`H`3
MUN(#GC/@)@/-+"8=88$Z(.D"*Y0`*S&P$@.=+8"M89TM`/LYDQG6V0(C,H!]
M%B,R\,P5*S$@L61X-S6989(NL$(+T/D8T$LFZ0(KQ``J3";I`BO4`.\_T-D"
MDT&0[6.2+K!"#E"5%2LQL!(#V&<Q(@.)08!W4RIQT.(#*221_P,K,=#9`F^?
MT\MCB4&0[6-J)?;>`V<N-CP'+QC5S&)J)7891)TM@!@#K1DFZ0(KE`!6G].:
M89(NL$()("P##Y[3FF&2+K!""0#[.9,9)ND"*Y0`$DN&=U.3&2;I`BN4`/X1
M=BIBG4&`=U.\*2;I`BND`)(NL$()L!(#0QA5.@=$,K`2`YTMT!03N8\#J5.3
M&=;9`NN/DU8YDQFV6#E5)H&H8XE!D.UCG2V0!`0D30:X9"\9,2(#_$&V$@.=
M+9`.!"1-!KAD+QDQ(@/O/_`(!"LQD&<1*S&P6#G2G^/E!)(NL$((@.L$G2V`
M,!CF3&")89(NL$('(.ADATV`D#C!GR/I`BN$`-*?LQ(#ZX^S$@.=+1!1$7`9
M-B(#V3[&H@()`/#DQ*(""P#P9&0T(@,U0.`\!X@Q$"('04K@SV.=+4`D`R%R
MX.`#RT`@[`,C,E`K.@]`1C,'*S%`,P=8,K`2`YTM@!@#V3Y6=5,E-[42`[A"
M!-#9`A)+AA@#DBZP0@7`H@(-`.#$%40DZ0(K9``K,8`K-`"=+=`9!(@Q(.D"
M*U0`+"K0``!.7$U,DBZP0@:P$@.X0@+0V0*308`8`Y(NL$(%P*("#0#@Q(4$
M)>D"*V0`*S&`*Q0`G2V0&`2(,2#I`BM4`,R0PZ("#0`P5<-U(^D"*V0`*S&`
M*P0`G2W@H1A_08`8`Y(NL$(%D.UCCF[0V0*B<9"\0&^&T]D"08_3V0(")"2O
M`[F/PYMBDBZP0@=02CDK,8#R.)TMD!@$>#?5FF&<E;,2`UJ/TP`Z<X^C'#I$
MD;,2`SP@Y.4$5`2$ZP2=+8!R.$60LQ(#?T&`=U/(<;`2`ZPPL1(#3BI0!0#Z
M_M_J_V7^W^'_U?V_VO\&_;^^_^7Z_Z#_Q/AOA_]"^.^`_W'W_W3_3BI`"P``
M````````8`0`````````````````````````````````````````1@!`T#1%
LM00`!%,U7#<!0.#$A00E``1.7$U,`T#@Q!5$1`!!`)`#`#$`D`(`(0``'PU%
`
end
END_UU
--
--> mheiskan@vipunen.hut.fi